# name : gsDesign nSurv hr.mdd in one line
# key : gsDesign.nSurv.hr.mdd.1line
# expand-env: ((yas-indent-line 'fixed) (yas-wrap-around-region 'nil))
# contributor: Shuguang Sun
# --
hrHat <- exp(stats::qnorm(${1:in}$alpha/$1$sided) * sqrt(1/sum(${2:out}$eDC) + 1/sum($2$eDE))) * $1$hr0